home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1997 February / macformat-047.iso / Demos / Chiller Killers / Chiller / Chiller.DXR / 00552.ls < prev    next >
Encoding:
Text File  |  1996-11-28  |  262 b   |  15 lines
  1. on mouseUp
  2.   global s, adv
  3.   do("sel" & s & EMPTY)
  4.   transform()
  5.   puppetSprite(4, 1)
  6.   set the width of sprite 4 to 600
  7.   set adv to random(10)
  8.   if adv = 1 then
  9.     set the visible of sprite 44 to 1
  10.     adit()
  11.   end if
  12.   updateStage()
  13.   puppetSprite(4, 0)
  14. end
  15.